home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCEStandardDirectory.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  26.6 KB  |  691 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Monday, November 8, 1993 11:59AM
  5. ;  OCEStandardDirectory.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;   Copyright Apple Computer, Inc. 1990-1993
  9. ;   All rights reserved
  10. ; 
  11. ; ***********************************************************
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes:= 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingOCEStandardDirectory
  22. ; $SETC UsingOCEStandardDirectory:= 1
  23.  
  24. ; $I+
  25. ; $SETC OCEStandardDirectoryIncludes:= UsingIncludes
  26. ; $SETC UsingIncludes:= 1
  27.  
  28. ; $IFC UNDEFINED UsingOCE
  29. ; $I OCE.p
  30. ; $ENDC
  31.  
  32. ; $IFC UNDEFINED UsingOCEAuthDir
  33. ; $I OCEAuthDir.p
  34. ; $ENDC
  35.  
  36. ; $IFC UNDEFINED UsingTypes
  37.  
  38. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  39. ; $ENDC
  40.  
  41. ; $IFC UNDEFINED UsingWindows
  42.  
  43. (require-interface 'WINDOWS)    ; $I $$Shell(PInterfaces)Windows.p
  44. ; $ENDC
  45.  
  46. ; $IFC UNDEFINED UsingIcons
  47.  
  48. (require-interface 'ICONS)      ; $I $$Shell(PInterfaces)Icons.p
  49. ; $ENDC
  50.  
  51. ; $SETC UsingIncludes:= OCEStandardDirectoryIncludes
  52.  
  53. ;  CollabPack Trap Selectors 
  54.  
  55. (defconstant $kSDPNewPanel 100)
  56. (defconstant $kSDPGetNewPanel 101)
  57. (defconstant $kSDPDisposePanel 102)
  58. (defconstant $kSDPHidePanel 103)
  59. (defconstant $kSDPShowPanel 104)
  60. (defconstant $kSDPEnablePanel 105)
  61. (defconstant $kSDPUpdatePanel 106)
  62. (defconstant $kSDPMovePanel 107)
  63. (defconstant $kSDPSizePanel 108)
  64. (defconstant $kSDPOpenSelectedItem 109)
  65. (defconstant $kSDPGetPanelSelectionState 110)
  66. (defconstant $kSDPGetPanelSelection 111)
  67. (defconstant $kSDPSetPath 112)
  68. (defconstant $kSDPPanelEvent 113)
  69. (defconstant $kSDPGetPanelSelectionSize 114)
  70. (defconstant $kSDPSetIdentity 115)
  71. (defconstant $kSDPSelectString 116)
  72. (defconstant $kSDPGetPathLength 117)
  73. (defconstant $kSDPGetPath 118)
  74. (defconstant $kSDPSetFocus 119)
  75. (defconstant $kSDPSetPanelBalloonHelp 120)
  76. (defconstant $kSDPInstallPanelBusyProc 121)
  77.  
  78. (defconstant $kSDPPromptForID 904)
  79.  
  80. (defconstant $kSDPNewFindPanel 2300)
  81. (defconstant $kSDPDisposeFindPanel 2301)
  82. (defconstant $kSDPStartFind 2302)
  83. (defconstant $kSDPStopFind 2303)
  84. (defconstant $kSDPFindPanelEvent 2304)
  85. (defconstant $kSDPDrawFindPanel 2305)
  86. (defconstant $kSDPShowFindPanel 2306)
  87. (defconstant $kSDPHideFindPanel 2307)
  88. (defconstant $kSDPMoveFindPanel 2308)
  89. (defconstant $kSDPEnableFindPanel 2309)
  90. (defconstant $kSDPSetFindPanelFocus 2310)
  91. (defconstant $kSDPGetFindPanelState 2311)
  92. (defconstant $kSDPGetFindPanelSelectionSize 2312)
  93. (defconstant $kSDPGetFindPanelSelection 2313)
  94. (defconstant $kSDPSetFindPanelBalloonHelp 2314)
  95. (defconstant $kSDPSetFindIdentity 2315)
  96. (defconstant $kSDPInstallFindPanelBusyProc 2316)
  97.  
  98. (defconstant $kSDPGetIconByType 1024)
  99. (defconstant $kSDPGetDSSpecIcon 1025)
  100. (defconstant $kSDPGetCategories 1026)
  101. (defconstant $kSDPGetCategoryTypes 1027)
  102.  
  103. (defconstant $kSDPResolveAliasFile 3700)
  104. (defconstant $kSDPResolveAliasDSSpec 3701)
  105.  
  106. (defconstant $kSDPRepairPersonalDirectory 6700)
  107.  
  108. ;  Collaboration Package Gestalts. 
  109.  
  110. (defconstant $gestaltSDPStandardDirectoryVersion :|sdvr|)
  111. (defconstant $gestaltSDPFindVersion :|dfnd|)
  112. (defconstant $gestaltSDPPromptVersion :|prpv|)
  113.  
  114. ; $IFC UNDEFINED svLarge1Bit
  115. ;   Selector mask values  
  116. ;  This is temporary. It will eventually appear in Icons.h 
  117.  
  118. (def-mactype :ICONSELECTORVALUE (find-mactype :SIGNED-LONG))
  119.  
  120. (defconstant $svLarge1Bit #X1)
  121. (defconstant $svLarge4Bit #X2)
  122. (defconstant $svLarge8Bit #X4)
  123. (defconstant $svSmall1Bit #X100)
  124. (defconstant $svSmall4Bit #X200)
  125. (defconstant $svSmall8Bit #X400)
  126. (defconstant $svMini1Bit #X10000)
  127. (defconstant $svMini4Bit #X20000)
  128. (defconstant $svMini8Bit #X40000)
  129. (defconstant $svAllLargeData #XFF)
  130. (defconstant $svAllSmallData #XFF00)
  131. (defconstant $svAllMiniData #XFF0000)
  132. (defconstant $svAll1BitData (+ #$SVLARGE1BIT (+ #$SVSMALL1BIT #$SVMINI1BIT)))
  133. (defconstant $svAll4BitData (+ #$SVLARGE4BIT (+ #$SVSMALL4BIT #$SVMINI4BIT)))
  134. (defconstant $svAll8BitData (+ #$SVLARGE8BIT (+ #$SVSMALL8BIT #$SVMINI8BIT)))
  135. (defconstant $svAllAvailableData #XFFFFFFFF)
  136. ; $ENDC
  137.  
  138. ;  generic icon suites 
  139.  
  140. (defconstant $genericDirectoryIconResource -16721);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  141. (defconstant $genericLockedDirectoryIconResource -16716);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  142. (defconstant $genericRecordIconResource -16722);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  143. (defconstant $genericAttributeIconResource -16723);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  144. (defconstant $genericTemplateIconResource -16746);  icl8, icl4, ICN#, ics#, ics4, ics8 
  145.  
  146. ;  standard icon suites 
  147.  
  148. (defconstant $directoryFolderIconResource -16720);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  149. (defconstant $lockedDirectoryFolderIconResource -16719);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  150. (defconstant $personalDirectoryIconResource -16718);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  151. (defconstant $directoriesIconResource -16717);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  152. (defconstant $preferredPersonalDirectoryIconResource -16724);  icl8, icl4, ICN#, ics#, ics4, ics8, sicn  
  153.  
  154. ;  icon IDs for spinning arrows 
  155. (defconstant $kFirstSpinnerIcon -16745)
  156. (defconstant $kLastSpinnerIcon -16738)
  157.  
  158. ;  resource types 
  159. (defconstant $kSDPPanelResourceType :|panl|)
  160. (defconstant $kSDPFindPanelResourceType :|find|)
  161.  
  162. ;  Standard FindPanel resource 
  163. (defconstant $kStandardFindLayout -16700)
  164.  
  165. ;  Values of SDPMatchWith 
  166. (defconstant $kSDPMatchAll 0)
  167. (defconstant $kSDPExactMatch 256)
  168. (defconstant $kSDPBeginsWith 512)
  169. (defconstant $kSDPEndingWith 1024)
  170. (defconstant $kSDPContaining 2048)
  171.  
  172. (def-mactype :SDPMATCHWITH (find-mactype :SIGNED-INTEGER))
  173.  
  174. ;  Prompt For Identity structures 
  175.  
  176. (defconstant $kSDPGuestBit 0)
  177. (defconstant $kSDPSpecificIdentityBit 1)
  178. (defconstant $kSDPLocalIdentityBit 2)
  179.  
  180. ;  Values of SDPIdentityKind 
  181. (defconstant $kSDPGuestMask #X1); 1<<kSDPGuestBit
  182. (defconstant $kSDPSpecificIdentityMask #X2); 1<<kSDPSpecificIdentityBit
  183. (defconstant $kSDPLocalIdentityMask #X4); 1<<kSDPLocalIdentityBit
  184.  
  185. (def-mactype :SDPIDENTITYKIND (find-mactype :SIGNED-INTEGER))
  186.  
  187. (defconstant $kSDPSuggestionOnly 0)
  188. (defconstant $kSDPRestrictToDirectory 1)
  189. (defconstant $kSDPRestrictToRecord 2)
  190.  
  191. (def-mactype :SDPLOGINFILTERKIND (find-mactype :SIGNED-INTEGER))
  192.  
  193. ;  Panel Structures 
  194.  
  195. ; 
  196. ; While the panel is in operation, four selection states may exist.
  197. ;     1) kSDPNothingSelected means nothing is selected.
  198. ;     2) kContainSelected means a volume, folder, directory, dnode, or PAB is selected.
  199. ;     3) kSDPLockedContainerSelected means one of the above, but no access privledges.
  200. ;     4) kSDPRecordSelected means that a record is currently selected.
  201. ; 
  202.  
  203. ;  Values of SDPSelectionState 
  204. (defconstant $kSDPNothingSelected 0)
  205. (defconstant $kSDPLockedContainerSelected 1)
  206. (defconstant $kSDPContainerSelected 2)
  207. (defconstant $kSDPRecordSelected 3)
  208. (defconstant $kSDPRecordAliasSelected 4)
  209. (defconstant $kSDPContainerAliasSelected 5)
  210.  
  211. (def-mactype :SDPSELECTIONSTATE (find-mactype :SIGNED-INTEGER))
  212.  
  213. ; 
  214. ; This type informs the caller of the action the user took, either as the result
  215. ; of an event (as returned by SDPPanelEvent) or when SDPOpenSelectedItem is called.
  216. ; 
  217. ; kSDPProcessed means that the event (or call to SDPOpenSelectedItem) resulted in no
  218. ; state change.
  219. ; 
  220. ; kSDPSelectedAnItem indicates that the user wants to select the currently-hilited
  221. ; record. This is returned, for example, when a user double-clicks on a record.
  222. ; 
  223. ; kSDPChangedSelection implies that the user clicked on a new item (which may mean
  224. ; that no item is selected).
  225. ; 
  226.  
  227. ;  Values of SDPPanelState 
  228. (defconstant $kSDPProcessed 0)
  229. (defconstant $kSDPSelectedAnItem 1)
  230. (defconstant $kSDPChangedSelection 2)
  231.  
  232. (def-mactype :SDPPANELSTATE (find-mactype :SIGNED-INTEGER))
  233.  
  234. ; 
  235. ; Your application may read any of the fields in a SDPPanelRecord, but it should
  236. ; use the appropriate routines to make changes to the records with the exception
  237. ; of the refCon field which your application may read or write at will.  Private
  238. ; information follows the SDPPanelRecord, so the handle must not be re-sized.
  239. ; 
  240.  
  241. (defrecord SDPPanelRecord 
  242.    (bounds :RECT)
  243.    (visible :BOOLEAN)
  244.    (enabled :BOOLEAN)
  245.    (focused :BOOLEAN)
  246. ; padByte: Byte;
  247.    (identity :SIGNED-LONG)
  248.    (refCon :SIGNED-LONG)
  249.    (listRect :RECT)
  250.    (popupRect :RECT)
  251.    (numberOfRows :SIGNED-INTEGER)
  252.    (rowHeight :SIGNED-INTEGER)
  253.    (pabMode :BOOLEAN)
  254.    )
  255.  
  256. (def-mactype :SDPPANELPTR (find-mactype :POINTER))
  257. (def-mactype :SDPPANELHANDLE (find-mactype :HANDLE))
  258.  
  259. (def-mactype :PANELBUSYPROC (find-mactype :POINTER))
  260. ;  PROCEDURE PanelBusyProc(Panel: SDPPanelHandle; busy: BOOLEAN); 
  261.  
  262. ;  Find Panel Structures 
  263.  
  264. (defconstant $kSDPItemIsSelectedBit 0)
  265. (defconstant $kSDPFindTextExistsBit 1)
  266. ;  Values of SDPFindPanelState 
  267. (defconstant $kSDPItemIsSelectedMask #X1); 1<<kSDPItemIsSelectedBit
  268. (defconstant $kSDPFindTextExistsMask #X2); 1<<kSDPFindTextExistsBit
  269.  
  270. (def-mactype :SDPFINDPANELSTATE (find-mactype :SIGNED-INTEGER))
  271.  
  272. ;  Values of SDPFindPanelFocus 
  273.  
  274. (defconstant $kSDPFindPanelNoFocus 0)
  275. (defconstant $kSDPFindPanelListHasFocus 1)
  276. (defconstant $kSDPFindPanelTextHasFocus 2)
  277.  
  278. (def-mactype :SDPFINDPANELFOCUS (find-mactype :SIGNED-INTEGER))
  279.  
  280. (defrecord SDPFindPanelRecord 
  281.    (upperLeft :POINT)
  282.    (visible :BOOLEAN)
  283.    (enabled :BOOLEAN)
  284.    (nowFinding :BOOLEAN)
  285. ; padByte: Byte;
  286.    (currentFocus :SIGNED-INTEGER)
  287.    (identity :SIGNED-LONG)
  288.    (simultaneousSearchCount :SIGNED-INTEGER)
  289.    (refCon :SIGNED-LONG)
  290.    )
  291.  
  292. (def-mactype :SDPFINDPANELPTR (find-mactype :POINTER))
  293. (def-mactype :SDPFINDPANELHANDLE (find-mactype :HANDLE))
  294.  
  295. ;  Values of SDPFindPanelResult 
  296. (defconstant $kSDPSelectedAFindItem 0)
  297. (defconstant $kSDPFindSelectionChanged 1)
  298. (defconstant $kSDPFindCompleted 2)
  299. (defconstant $kSDPTextStateChanged 3)
  300. (defconstant $kSDPFocusChanged 4)
  301. (defconstant $kSDPSelectionAndFocusChanged 5)
  302. (defconstant $kSDPMenuChanged 6)
  303. (defconstant $kSDPSelectionAndMenuChanged 7)
  304. (defconstant $kSDPProcessedFind 8)
  305.  
  306. (def-mactype :SDPFINDPANELRESULT (find-mactype :SIGNED-INTEGER))
  307.  
  308. (def-mactype :PACKEDRSTRINGLISTHANDLE (find-mactype :HANDLE))
  309.  
  310. (def-mactype :PACKEDDSSPECHANDLE (find-mactype :HANDLE))
  311.  
  312. (def-mactype :FINDPANELBUSYPROC (find-mactype :POINTER))
  313. ; PROCEDURE FindPanelBusyProc(findPanel: SDPFindPanelHandle; busy: BOOLEAN); 
  314.  
  315. ;  Prompt For Identity Routines 
  316.  
  317.  
  318. (deftrap _sdppromptforid ((id (:pointer :signed-long)) (guestprompt (:pointer (:string 255))) (specificidprompt (:pointer (:string 255))) (localidprompt (:pointer (:string 255))) (recordtype (:pointer :rstring)) (permittedkinds :signed-integer) (selectedkind (:pointer :signed-integer)) (loginfilter (:pointer :recordid)) (filterkind :signed-integer))
  319.    (:stack :signed-integer)
  320.    (:stack-trap #xAA5D :d0 (+ (ash 16 16) 904) id guestprompt specificidprompt localidprompt recordtype permittedkinds selectedkind loginfilter filterkind))
  321.  
  322. ; 
  323. ; SDPNewPanel creates a new panel. You supply the window in which the panel
  324. ; is to live, the bounds for the panel (which includes both the menu and the list),
  325. ; whether or not the panel is to be initially visible, the initial RLI (nil for
  326. ; directories and volumes), the types of records that will be shown (only a single
  327. ; (non-nil) type which may contain wildcards), the identity by which to browse
  328. ; (for access control reasons), and a refCon which is  available to the caller.
  329. ; 
  330.  
  331. (deftrap _sdpnewpanel ((newpanel (:pointer (:handle :sdppanelrecord))) (window (:pointer :grafport)) (bounds :rect) (visible :boolean) (enabled :boolean) (initialrli (:pointer :packedrli)) (typeslist (:handle :rstring)) (typecount :signed-long) (identity :signed-long) (enumflags :signed-long) (matchtypehow :signed-integer) (refcon :signed-long))
  332.    (:stack :signed-integer)
  333.    (:stack-trap #xAA5D :d0 (+ (ash 21 16) 100) newpanel window bounds visible enabled initialrli typeslist typecount identity enumflags matchtypehow refcon))
  334.  
  335. ; 
  336. ; SDPSetIdentity Sets the identity used for browsing.
  337. ; 
  338.  
  339. (deftrap _sdpsetidentity ((panel (:handle :sdppanelrecord)) (identity :signed-long))
  340.    (:stack :signed-integer)
  341.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 115) panel identity))
  342.  
  343. ; 
  344. ; SDPGetNewPanel is similar to SDPNewPanel above, except it takes a resource id of a
  345. ; 'panl' resource.
  346. ; 
  347.  
  348. (deftrap _sdpgetnewpanel ((newpanel (:pointer (:handle :sdppanelrecord))) (resourceid :signed-integer) (window (:pointer :grafport)) (initialrli (:pointer :packedrli)) (identity :signed-long))
  349.    (:stack :signed-integer)
  350.    (:stack-trap #xAA5D :d0 (+ (ash 9 16) 101) newpanel resourceid window initialrli identity))
  351.  
  352. ; 
  353. ; Call this when you're completely done with a panel. It deallocates all of the
  354. ; associated data structures.
  355. ; 
  356.  
  357. (deftrap _sdpdisposepanel ((panel (:handle :sdppanelrecord)))
  358.    (:stack :signed-integer)
  359.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 102) panel))
  360.  
  361. ; 
  362. ; If the panel is visible, it makes it invisible by hiding the menu, turning off
  363. ; drawing of the list, and erasing and  invaling the list's rectangle.
  364. ; 
  365.  
  366. (deftrap _sdphidepanel ((panel (:handle :sdppanelrecord)))
  367.    (:stack :signed-integer)
  368.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 103) panel))
  369.  
  370. ;  If the panel is invisible, it makes it visible and draws it. 
  371.  
  372.  
  373. (deftrap _sdpshowpanel ((panel (:handle :sdppanelrecord)))
  374.    (:stack :signed-integer)
  375.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 104) panel))
  376.  
  377. ;  Disables the list and menu so that it won't accept any commands. 
  378.  
  379.  
  380. (deftrap _sdpenablepanel ((panel (:handle :sdppanelrecord)) (enable :boolean))
  381.    (:stack :signed-integer)
  382.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 105) panel enable))
  383.  
  384. ; 
  385. ; Move the upper-left-hand corner of the panel to (h, v), given in local coordinates of
  386. ; the panel's window.
  387. ; 
  388.  
  389. (deftrap _sdpmovepanel ((panel (:handle :sdppanelrecord)) (h :signed-integer) (v :signed-integer))
  390.    (:stack :signed-integer)
  391.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 107) panel h v))
  392.  
  393. ; 
  394. ; Resizes the panel to have the given width and height (keeping the upper-left-hand
  395. ; corner in a fixed position).
  396. ; 
  397.  
  398. (deftrap _sdpsizepanel ((panel (:handle :sdppanelrecord)) (width :signed-integer) (height :signed-integer))
  399.    (:stack :signed-integer)
  400.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 108) panel width height))
  401.  
  402. ; 
  403. ; This routine simulates a double-click on the selected item (if there is no selected
  404. ; item, then it does nothing), and it returns the result of that "double-click" via the
  405. ; whatHappened parameter. If a container is selected, then that container will be
  406. ; opened and kMovedDownTheHierarchy is returned. If, however, the user is at the lowest
  407. ; level in the hierarchy, then kSDPSelectedAnItem is returned.
  408. ; 
  409.  
  410. (deftrap _sdpopenselecteditem ((panel (:handle :sdppanelrecord)) (whathappened (:pointer :signed-integer)))
  411.    (:stack :signed-integer)
  412.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 109) panel whathappened))
  413.  
  414. ; 
  415. ; Returns whether a record is selected, something else is selected, or nothing is
  416. ; selected.
  417. ; 
  418.  
  419. (deftrap _sdpgetpanelselectionstate ((panel (:handle :sdppanelrecord)) (itsstate (:pointer :signed-integer)))
  420.    (:stack :signed-integer)
  421.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 110) panel itsstate))
  422.  
  423. ; 
  424. ; Returns the size of the currently-selected DSSpec, or zero if a record is
  425. ; not selected.  It is safe to do a NewPtr (SDPGetPanelSelectionSize (...))
  426. ; 
  427.  
  428. (deftrap _sdpgetpanelselectionsize ((panel (:handle :sdppanelrecord)) (dsspecsize (:pointer :signed-integer)))
  429.    (:stack :signed-integer)
  430.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 114) panel dsspecsize))
  431.  
  432. ; 
  433. ; Returns the currently-selected DSSpec, or a zero-lengthed
  434. ; DSSpec if a record is not selected. It is assumed that the selection
  435. ; buffer allocated is large enough.
  436. ; 
  437.  
  438. (deftrap _sdpgetpanelselection ((panel (:handle :sdppanelrecord)) (selection (:pointer :packeddsspec)))
  439.    (:stack :signed-integer)
  440.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 111) panel selection))
  441.  
  442. ; 
  443. ; Forces browsing to the specified RLI. If prli is the current RLI, then it does
  444. ; nothing.
  445. ; 
  446.  
  447. (deftrap _sdpsetpath ((panel (:handle :sdppanelrecord)) (prli (:pointer :packedrli)))
  448.    (:stack :signed-integer)
  449.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 112) panel prli))
  450.  
  451. ; 
  452. ; This is the main driver for the panel.  You should pass all events to SDPPanelEvent
  453. ; including NULL events.  If you have more than 1 panel, you will need to
  454. ; call SDPPanelEvent for each panel.  NOTE:  For Update Events you will also need to call
  455. ; SDPUpdatePanel as described below.
  456. ; 
  457.  
  458. (deftrap _sdppanelevent ((panel (:handle :sdppanelrecord)) (theevent :eventrecord) (whathappened (:pointer :signed-integer)))
  459.    (:stack :signed-integer)
  460.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 113) panel theevent whathappened))
  461.  
  462. ; 
  463. ; SDPUpdatePanel should be called in response to an update event.  Generally you will
  464. ; have first called BeginUpdate, and pass the windows visRgn as theRgn.  If NULL
  465. ; is passed for theRgn the entire panel is re-drawn.  NOTE:  Drawing is not cliped to
  466. ; theRgn, if this is desired, you must first call SetClip.
  467. ; 
  468.  
  469. (deftrap _sdpupdatepanel ((panel (:handle :sdppanelrecord)) (thergn (:handle :region)))
  470.    (:stack :signed-integer)
  471.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 106) panel thergn))
  472.  
  473. ; 
  474. ; SDPSelectString scrolls and selects the closest matching string at the current
  475. ; level.  This is the same behavior as if the user typed in the given string.
  476. ; 
  477.  
  478. (deftrap _sdpselectstring ((panel (:handle :sdppanelrecord)) (name (:pointer :rstring)))
  479.    (:stack :signed-integer)
  480.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 116) panel name))
  481.  
  482. ; 
  483. ; SDPGetPathLength returns the length in bytes required to hold the current path name
  484. ; in RLI format.  This corresponds to the path name in the popup menu.
  485. ; 
  486.  
  487. (deftrap _sdpgetpathlength ((panel (:handle :sdppanelrecord)) (pathnamelength (:pointer :signed-integer)))
  488.    (:stack :signed-integer)
  489.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 117) panel pathnamelength))
  490.  
  491. ;  SDPGetPath returns the current rli. 
  492.  
  493. (deftrap _sdpgetpath ((panel (:handle :sdppanelrecord)) (prli (:pointer :packedrli)) (dsrefnum (:pointer :signed-integer)))
  494.    (:stack :signed-integer)
  495.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 118) panel prli dsrefnum))
  496.  
  497. ; 
  498. ; SDPSetFocus will draw the focus rectangle or erase the focus rectangle depending upon
  499. ; the focus boolean.
  500. ; 
  501.  
  502. (deftrap _sdpsetfocus ((panel (:handle :sdppanelrecord)) (focus :boolean))
  503.    (:stack :signed-integer)
  504.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 119) panel focus))
  505.  
  506. ; 
  507. ; SDPSetPanelBalloonHelp allows clients to specify a STR# resource id to use for
  508. ; balloon help.  Balloon help is unavailable until this call is made.
  509. ; 
  510.  
  511. (deftrap _sdpsetpanelballoonhelp ((panel (:handle :sdppanelrecord)) (balloonhelpid :signed-integer))
  512.    (:stack :signed-integer)
  513.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 120) panel balloonhelpid))
  514.  
  515. ; 
  516. ; SDPInstallPanelBusyProc allows clients to install a CB that will be called while
  517. ; the panel is aynchronously busy.
  518. ; 
  519.  
  520. (deftrap _sdpinstallpanelbusyproc ((panel (:handle :sdppanelrecord)) (busyproc :pointer))
  521.    (:stack :signed-integer)
  522.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 121) panel busyproc))
  523.  
  524.  
  525. (deftrap _sdpnewfindpanel ((newpanel (:pointer (:handle :sdpfindpanelrecord))) (window (:pointer :grafport)) (upperleft :point) (layoutresourceid :signed-integer) (visible :boolean) (enabled :boolean) (typeslist (:handle :rstring)) (typecount :signed-long) (matchtypehow :signed-integer) (identity :signed-long) (simultaneoussearchcount :signed-integer) (initialfocus :signed-integer) (refcon :signed-long))
  526.    (:stack :signed-integer)
  527.    (:stack-trap #xAA5D :d0 (+ (ash 20 16) 2300) newpanel window upperleft layoutresourceid visible enabled typeslist typecount matchtypehow identity simultaneoussearchcount initialfocus refcon))
  528.  
  529.  
  530. (deftrap _sdpdisposefindpanel ((findpanel (:handle :sdpfindpanelrecord)))
  531.    (:stack :signed-integer)
  532.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2301) findpanel))
  533.  
  534.  
  535. (deftrap _sdpstartfind ((findpanel (:handle :sdpfindpanelrecord)))
  536.    (:stack :signed-integer)
  537.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2302) findpanel))
  538.  
  539.  
  540. (deftrap _sdpstopfind ((findpanel (:handle :sdpfindpanelrecord)))
  541.    (:stack :signed-integer)
  542.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2303) findpanel))
  543.  
  544.  
  545. (deftrap _sdpfindpanelevent ((findpanel (:handle :sdpfindpanelrecord)) (event :eventrecord) (whathappened (:pointer :signed-integer)))
  546.    (:stack :signed-integer)
  547.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 2304) findpanel event whathappened))
  548.  
  549.  
  550. (deftrap _sdpupdatefindpanel ((findpanel (:handle :sdpfindpanelrecord)) (thergn (:handle :region)))
  551.    (:stack :signed-integer)
  552.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2305) findpanel thergn))
  553.  
  554.  
  555. (deftrap _sdpshowfindpanel ((findpanel (:handle :sdpfindpanelrecord)))
  556.    (:stack :signed-integer)
  557.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2306) findpanel))
  558.  
  559.  
  560. (deftrap _sdphidefindpanel ((findpanel (:handle :sdpfindpanelrecord)))
  561.    (:stack :signed-integer)
  562.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2307) findpanel))
  563.  
  564.  
  565. (deftrap _sdpmovefindpanel ((findpanel (:handle :sdpfindpanelrecord)) (h :signed-integer) (v :signed-integer))
  566.    (:stack :signed-integer)
  567.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2308) findpanel h v))
  568.  
  569.  
  570. (deftrap _sdpenablefindpanel ((findpanel (:handle :sdpfindpanelrecord)) (enabled :boolean))
  571.    (:stack :signed-integer)
  572.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 2309) findpanel enabled))
  573.  
  574.  
  575. (deftrap _sdpsetfindpanelfocus ((findpanel (:handle :sdpfindpanelrecord)) (newfocus :signed-integer))
  576.    (:stack :signed-integer)
  577.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 2310) findpanel newfocus))
  578.  
  579.  
  580. (deftrap _sdpgetfindpanelstate ((findpanel (:handle :sdpfindpanelrecord)) (itsstate (:pointer :signed-integer)))
  581.    (:stack :signed-integer)
  582.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2311) findpanel itsstate))
  583.  
  584.  
  585. (deftrap _sdpgetfindpanelselectionsize ((findpanel (:handle :sdpfindpanelrecord)) (size (:pointer :signed-integer)))
  586.    (:stack :signed-integer)
  587.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2312) findpanel size))
  588.  
  589.  
  590. (deftrap _sdpgetfindpanelselection ((findpanel (:handle :sdpfindpanelrecord)) (selection (:pointer :packeddsspec)))
  591.    (:stack :signed-integer)
  592.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2313) findpanel selection))
  593.  
  594.  
  595. (deftrap _sdpsetfindpanelballoonhelp ((findpanel (:handle :sdpfindpanelrecord)) (balloonhelpid :signed-integer))
  596.    (:stack :signed-integer)
  597.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 2314) findpanel balloonhelpid))
  598.  
  599.  
  600. (deftrap _sdpsetfindidentity ((findpanel (:handle :sdpfindpanelrecord)) (identity :signed-long))
  601.    (:stack :signed-integer)
  602.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2315) findpanel identity))
  603.  
  604.  
  605. (deftrap _sdpinstallfindpanelbusyproc ((findpanel (:handle :sdpfindpanelrecord)) (busyproc :pointer))
  606.    (:stack :signed-integer)
  607.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 2316) findpanel busyproc))
  608.  
  609.  
  610. (deftrap _sdpgeticonbytype ((recordtype (:pointer :rstring)) (whichicons :signed-long) (iconsuite (:pointer :handle)))
  611.    (:stack :signed-integer)
  612.    (:stack-trap #xAA5C :d0 1024 recordtype whichicons iconsuite))
  613.  
  614.  
  615. (deftrap _sdpgetdsspecicon ((packeddsspec (:pointer :packeddsspec)) (whichicons :signed-long) (iconsuite (:pointer :handle)))
  616.    (:stack :signed-integer)
  617.    (:stack-trap #xAA5C :d0 1025 packeddsspec whichicons iconsuite))
  618.  
  619.  
  620. (deftrap _sdpgetcategories ((catagories (:pointer (:handle :packedpathname))) (displaynames (:pointer (:handle :packedpathname))))
  621.    (:stack :signed-integer)
  622.    (:stack-trap #xAA5C :d0 1026 catagories displaynames))
  623.  
  624.  
  625. (deftrap _sdpgetcategorytypes ((category (:pointer :rstring)) (types (:pointer (:handle :packedpathname))))
  626.    (:stack :signed-integer)
  627.    (:stack-trap #xAA5C :d0 1027 category types))
  628.  
  629.  
  630. (deftrap _sdpresolvealiasfile ((filespec :fsspecptr) (resolveddsspec (:handle :packeddsspec)) (identity :signed-long) (maypromptuser :boolean))
  631.    (:stack :signed-integer)
  632.    (:stack-trap #xAA5D :d0 (+ (ash 7 16) 3700) filespec resolveddsspec identity maypromptuser))
  633.  
  634.  
  635. (deftrap _sdpresolvealiasdsspec ((thealiasdsspec (:handle :packeddsspec)) (identity :signed-long) (maypromptuser :boolean))
  636.    (:stack :signed-integer)
  637.    (:stack-trap #xAA5D :d0 (+ (ash 5 16) 3701) thealiasdsspec identity maypromptuser))
  638.  
  639.  
  640. (deftrap _sdprepairpersonaldirectory ((pd :fsspecptr) (showprogress :boolean))
  641.    (:stack :signed-integer)
  642.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 6700) pd showprogress))
  643.  
  644. ; $ENDC                         ;  UsingOCEStandardDirectory 
  645.  
  646. ; $IFC NOT UsingIncludes
  647.  
  648. ; $ENDC
  649.  
  650. (export '($KSDPPROCESSEDFIND $KSDPSELECTIONANDMENUCHANGED $KSDPMENUCHANGED
  651.           $KSDPSELECTIONANDFOCUSCHANGED $KSDPFOCUSCHANGED $KSDPTEXTSTATECHANGED
  652.           $KSDPFINDCOMPLETED $KSDPFINDSELECTIONCHANGED $KSDPSELECTEDAFINDITEM
  653.           $KSDPFINDPANELTEXTHASFOCUS $KSDPFINDPANELLISTHASFOCUS
  654.           $KSDPFINDPANELNOFOCUS $KSDPFINDTEXTEXISTSMASK $KSDPITEMISSELECTEDMASK
  655.           $KSDPFINDTEXTEXISTSBIT $KSDPITEMISSELECTEDBIT $KSDPCHANGEDSELECTION
  656.           $KSDPSELECTEDANITEM $KSDPPROCESSED $KSDPCONTAINERALIASSELECTED
  657.           $KSDPRECORDALIASSELECTED $KSDPRECORDSELECTED $KSDPCONTAINERSELECTED
  658.           $KSDPLOCKEDCONTAINERSELECTED $KSDPNOTHINGSELECTED
  659.           $KSDPRESTRICTTORECORD $KSDPRESTRICTTODIRECTORY $KSDPSUGGESTIONONLY
  660.           $KSDPLOCALIDENTITYMASK $KSDPSPECIFICIDENTITYMASK $KSDPGUESTMASK
  661.           $KSDPLOCALIDENTITYBIT $KSDPSPECIFICIDENTITYBIT $KSDPGUESTBIT
  662.           $KSDPCONTAINING $KSDPENDINGWITH $KSDPBEGINSWITH $KSDPEXACTMATCH
  663.           $KSDPMATCHALL $KSTANDARDFINDLAYOUT $KSDPFINDPANELRESOURCETYPE
  664.           $KSDPPANELRESOURCETYPE $KLASTSPINNERICON $KFIRSTSPINNERICON
  665.           $PREFERREDPERSONALDIRECTORYICONRESOURCE $DIRECTORIESICONRESOURCE
  666.           $PERSONALDIRECTORYICONRESOURCE $LOCKEDDIRECTORYFOLDERICONRESOURCE
  667.           $DIRECTORYFOLDERICONRESOURCE $GENERICTEMPLATEICONRESOURCE
  668.           $GENERICATTRIBUTEICONRESOURCE $GENERICRECORDICONRESOURCE
  669.           $GENERICLOCKEDDIRECTORYICONRESOURCE $GENERICDIRECTORYICONRESOURCE
  670.           $SVALLAVAILABLEDATA $SVALL8BITDATA $SVALL4BITDATA $SVALL1BITDATA
  671.           $SVALLMINIDATA $SVALLSMALLDATA $SVALLLARGEDATA $SVMINI8BIT
  672.           $SVMINI4BIT $SVMINI1BIT $SVSMALL8BIT $SVSMALL4BIT $SVSMALL1BIT
  673.           $SVLARGE8BIT $SVLARGE4BIT $SVLARGE1BIT $GESTALTSDPPROMPTVERSION
  674.           $GESTALTSDPFINDVERSION $GESTALTSDPSTANDARDDIRECTORYVERSION
  675.           $KSDPREPAIRPERSONALDIRECTORY $KSDPRESOLVEALIASDSSPEC
  676.           $KSDPRESOLVEALIASFILE $KSDPGETCATEGORYTYPES $KSDPGETCATEGORIES
  677.           $KSDPGETDSSPECICON $KSDPGETICONBYTYPE $KSDPINSTALLFINDPANELBUSYPROC
  678.           $KSDPSETFINDIDENTITY $KSDPSETFINDPANELBALLOONHELP
  679.           $KSDPGETFINDPANELSELECTION $KSDPGETFINDPANELSELECTIONSIZE
  680.           $KSDPGETFINDPANELSTATE $KSDPSETFINDPANELFOCUS $KSDPENABLEFINDPANEL
  681.           $KSDPMOVEFINDPANEL $KSDPHIDEFINDPANEL $KSDPSHOWFINDPANEL
  682.           $KSDPDRAWFINDPANEL $KSDPFINDPANELEVENT $KSDPSTOPFIND $KSDPSTARTFIND
  683.           $KSDPDISPOSEFINDPANEL $KSDPNEWFINDPANEL $KSDPPROMPTFORID
  684.           $KSDPINSTALLPANELBUSYPROC $KSDPSETPANELBALLOONHELP $KSDPSETFOCUS
  685.           $KSDPGETPATH $KSDPGETPATHLENGTH $KSDPSELECTSTRING $KSDPSETIDENTITY
  686.           $KSDPGETPANELSELECTIONSIZE $KSDPPANELEVENT $KSDPSETPATH
  687.           $KSDPGETPANELSELECTION $KSDPGETPANELSELECTIONSTATE
  688.           $KSDPOPENSELECTEDITEM $KSDPSIZEPANEL $KSDPMOVEPANEL $KSDPUPDATEPANEL
  689.           $KSDPENABLEPANEL $KSDPSHOWPANEL $KSDPHIDEPANEL $KSDPDISPOSEPANEL
  690.           $KSDPGETNEWPANEL $KSDPNEWPANEL))
  691. (provide-interface 'OCEStandardDirectory)